home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mebbs / wall.lha / WALL next >
Text File  |  1994-05-27  |  4KB  |  185 lines
  1. /**/
  2. signal on ERROR
  3. parse arg LineNumber
  4.  
  5. DoorName = "WALL"
  6.  
  7. if( ~show( 'l', "mebbsarexx.library" ) )then do
  8.    say "Opening mebbsarexx.library"
  9.     if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  10.       say "Could not open library"
  11.       exit 10
  12.    end
  13. end
  14.  
  15. call GetVar DoorName,LineNumber,1
  16. username=result
  17. call GetVar DoorName,LineNumber,4
  18. city=result
  19. call GetVar DoorName,LineNumber,8
  20. gfx=result
  21. call GetVar DoorName,LineNumber,11
  22. calls=result
  23. call GetVar DoorName,LineNumber,12
  24. uploads=result
  25. call GetVar DoorName,LineNumber,13
  26. downloads=result
  27. call GetVar DoorName,LineNumber,15
  28. path=result
  29. call GetVar DoorName,LineNumber,18
  30. total_calls=result
  31. call GetVar DoorName,LineNumber,17
  32. all_calls=result
  33. call GetVar DoorName,LineNumber,20
  34. level=result
  35.  
  36. username=upper(username)
  37. rname=space(username,1,'_')
  38.  
  39. ac=result
  40. f =0
  41. mainpath='T:'
  42. a=0
  43. fname3  = "doors:wall/wallmain.gr1"
  44. lng=length(total_calls)
  45.  
  46. CLS = 'H'
  47. RED    =''
  48. GRN    =''
  49. GREEN  =''
  50. YEL    =''
  51. BLU    =''
  52. VIO    =''
  53. WHT    =''
  54. BLA2   =''
  55. RED2   =''
  56. GRN2   =''
  57. YEL2   =''
  58. BLU2   =''
  59. RESET  =''
  60. CYAN   =''
  61. BLUEY  =''
  62. RESET  =''
  63. ENTER:
  64. do forever
  65.  
  66. call ReadFile DoorName,LineNumber,fname3
  67. call Message DoorName,LineNumber,"",1
  68. call HotKey DoorName,LineNumber,"Please make your selection "|| username || " >"
  69. choice=UPPER(result)
  70.        if choice = 'R' then call WALL
  71.   else if choice = 'W' then call WRITEWALL
  72.   else if choice = '3' then call WRITEWALL
  73.   else if choice = 'Q' then call end_it
  74. call ReadFile DoorName,LineNumber,fname3
  75. call ReadFile DoorName,LineNumber,fname3
  76. call ReadFile DoorName,LineNumber,fname3
  77. end
  78.  
  79. CALL ENTER
  80.  
  81. WALL:
  82. z       = 0
  83. count   = 0
  84. fname1  = "doors:wall/wall.gr2"
  85. filename='doors:wall/walldata'
  86. fname2  = "doors:wall/wallsep.txt"
  87. call ReadFile DoorName,LineNumber,fname1
  88.  
  89. call Open readwall,(filename), 'R'
  90. do until eof(readwall)
  91. zline.z=readln(readwall)
  92. z=z+1
  93. end
  94. call close(readwall)
  95. call Message DoorName,LineNumber,"",1
  96. call ReadFile DoorName,LineNumber,fname2
  97. z=z-5
  98. do forever
  99. call Message DoorName,LineNumber,zline.z||" pulls zipper down and sprays on the wall the following:"||yel,1
  100. count=count+1
  101. z=z+1
  102. call Message DoorName,LineNumber,zline.z,1
  103. z=z+1
  104. call Message DoorName,LineNumber,zline.z,1
  105. z=z+1
  106. call Message DoorName,LineNumber,zline.z,1
  107. call ReadFile DoorName,LineNumber,fname2
  108. z=z-7
  109. if z <= 0 then call select2
  110. if count > 4 then call select
  111. end
  112.  
  113. call ENTER
  114.  
  115. SELECT:
  116. call Message DoorName,LineNumber,"",1
  117. call HotKey DoorName,LineNumber,cyan||"Press Y/n to Continue"
  118. fil=upper(result)
  119.  
  120. call Message DoorName,LineNumber,"",1
  121. call ReadFile DoorName,LineNumber,fname2
  122. if fil='Y' then do
  123. count = 0 
  124. return
  125. end
  126. else if fil='N' then call ENTER
  127.  
  128. SELECT2:
  129. call HotKey DoorName,LineNumber,grn||"End of file - You hear cops in the distance."||yel||"Press Key"
  130. call end_it
  131.  
  132. WRITEWALL:
  133. wpath="doors:wall/walldata"
  134.  
  135. call ReadFile DoorName,LineNumber,'doors:wall/wall.gr2'
  136.  
  137. call open Wall,(wpath), 'A'
  138. call Message DoorName,LineNumber,"",1
  139. call Message DoorName,LineNumber,"",1
  140. call Message DoorName,LineNumber,"Lets have fun - Enter your text below (three lines):",1
  141. call Message DoorName,LineNumber,"",1
  142.  
  143. call Prompt DoorName,LineNumber,">",60
  144. wall1=result
  145. call Prompt DoorName,LineNumber,">",60
  146. wall2=result 
  147. call Prompt DoorName,LineNumber,">",60
  148. wall3=result
  149.  
  150. call Message DoorName,LineNumber,cyan"Are you sure you want to write that - (Y/N)?",1
  151. call HotKey DoorName,LineNumber,""
  152. option=upper(result)
  153.  
  154. if option ~= 'Y' then call end_it
  155.  
  156. call writeln wall,cyan||username
  157. call writeln wall,green||wall1
  158. call writeln wall,wall2
  159. call writeln wall,wall3
  160. call close wall
  161. call Message DoorName,LineNumber,"",1
  162. call Message DoorName,LineNumber,"Vandal Alert - Cops are heard in the distance - Graphitti written.",1
  163. call Message DoorName,LineNumber,"",1
  164. call HotKey DoorName,LineNumber,grn||"End ."||yel||"Press Key"
  165.  
  166. call ENTER
  167.  
  168. call end_it
  169.  
  170.  
  171. IOERR:
  172. call Exit_Door DoorName,LineNumber
  173. exit 10
  174.  
  175. ERROR:
  176. call Exit_Door DoorName,LineNumber
  177. exit 10
  178.  
  179. end_it:
  180. call Exit_Door DoorName,LineNumber
  181. exit 0
  182.  
  183.  
  184.  
  185.